home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / vbdos.arc / VBDOS.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-07-11  |  12KB  |  338 lines
  1. Form1
  2. File DLL Demo
  3. Form1
  4. x_Disk
  5. &Disk
  6. a_DiskSize
  7. &Disk Size
  8. b_DiskSpace
  9. &Free Disk Space
  10.     x_ExitMNU
  11. E&xit
  12.     x_FileMNU
  13.     &FileStat
  14. c_Hidden
  15. &Hidden File
  16. d_ReadOnly
  17. &Read Only
  18.     e_Sysfile
  19. &System File
  20. f_Archfile
  21. &Archive File
  22. g_GetFTime
  23. &File Creation Time
  24. h_LocateFile
  25. &Locate a File
  26.     x_modfile
  27. &ModFile
  28. i_ModHidden
  29. Set &Hidden Attribute
  30. j_ModRO
  31. Set &Read Only Attribute
  32. k_ModSystem
  33. Set &System Attribute
  34. l_ModArchive
  35. Set &Archive Attribute
  36.     m_SetTime
  37. Set &File Time
  38. GetProfileString
  39. Keyname
  40. DefaultValB
  41. RetBuf
  42. DoPrinterSetup
  43. hwnd)
  44. DriverName
  45. PortName{
  46. PSetupMNU_Click
  47. RetStr
  48. Form1A
  49. ExitMNU_Click
  50. FileMNU_ClickY
  51. Form_Click
  52. flase
  53. false
  54. RetStrSize
  55. GetDisk
  56. DiskSize
  57. diskno
  58. test_Click
  59. diskspac
  60. DiskSpace_Click`
  61. endcase
  62. upcase
  63. fname
  64. IsHiddg
  65. IsHidde
  66. IsFileHidden
  67. GetAvailDiskx
  68. IsFileRO
  69. DiskSize_Click
  70. Hidden_Click]
  71. GetDisksize
  72. IsFileArchive0
  73. IsFileSystem:
  74. IsFileReadOnly-
  75. testfileI
  76. ReadOnly_Click!
  77. Sysfile_Click
  78. Archfile_ClickP
  79. HideFile_Click
  80. SetFileSystem
  81. plusmin
  82. SetFileHidden
  83. attrib;
  84. wishX
  85. attrx
  86. ModHidden_Click
  87. ModRO_Clickv
  88.     SetFileRO
  89. ModSystem_Click
  90. ModArchive_ClickQ
  91. SetFileArchive
  92. GetFileDate
  93. filetime
  94. GetFTime_Click
  95. GetFileTime
  96. ftime
  97. retval
  98. SetTime_Click
  99. etFileTime
  100. FunctionetFileTime
  101. SetFileTimek
  102. newtime
  103. newdate
  104. Enter
  105. completeQ
  106. pathE
  107. filename
  108. modfile_Click
  109. Disk_Click
  110. Aspaced
  111. AvailSpace!
  112. TotalSpace
  113. Locate_Click
  114. FileFind
  115. searchpath
  116. fullname
  117. result
  118. FindFile
  119. m_SetTime_Click
  120. f_Archfile_Click
  121. a_DiskSize_Click
  122. b_DiskSpace_Click
  123. g_GetFTime_Click
  124. c_Hidden_Click
  125. h_LocateFile_Click
  126. l_ModArchive_Click
  127. i_ModHidden_Clickh
  128. j_ModRO_Click
  129. k_ModSystem_Click
  130. d_ReadOnly_Click
  131. e_Sysfile_Clickz
  132. x_ExitMNU_Click
  133. xmodfile_Click
  134. x_Disk_Click
  135. rSpace
  136.     AvailDiskb
  137. diskstat.dll
  138. diskstat.dll
  139. diskstat.dll
  140. diskstat.dll
  141. diskstat.dll
  142. diskstat.dll
  143. diskstat.dll
  144. diskstat.dll
  145. diskstat.dll
  146. diskstat.dll
  147. diskstat.dll
  148. diskstat.dll
  149. Declare Function FindFile Lib "diskstat.dll" (ByVal fname As String, ByVal searchpath As String, ByVal fullname As String) As Integer
  150. m_SetTime_Click
  151. Which file do you wish to change?"
  152. Select File"
  153. C:\AUTOEXEC.BAT"
  154. The new file date/time must be *exactly* formatted as "mm/dd/
  155. y hh:mm:ss"
  156. Please enter the date and time."
  157. Enter Date/Time"
  158. 07/04/1991 12:12:12"
  159.  has been modified."
  160. Invalid Date Format.
  161. Path or File not found."
  162. Unable to Access file.
  163. f_Archfile_Click
  164. IsFileArchive takes one parameter, a string with the full path namet
  165.    of the file.a
  166. Which file do you wish to check?
  167. Select File"
  168. C:\AUTOEXEC.BAT"
  169.  is marked Archive."
  170.  is not marked Archive."
  171.  not found."
  172. Path not found."
  173. Access to 
  174.  denied.
  175. Unable to Access file.
  176. a_DiskSize_Click
  177. GetDiskSize takes one parameter, the sequential number of the
  178.    disk drive to check (A=1, B=2, C=3, etc.) A value of 0 checks the
  179.    default drive.c
  180. Which drive do you wish to check?"
  181. Select Drive
  182. default"
  183. ABCDEFGHIJKLMNOPQRSTUVWXYZ
  184. default"
  185. Invalid Drive Specified.
  186. There are 
  187.  bytes of total space on drive "
  188. b_DiskSpace_Click
  189. GetAvailDisk takes one parameter, the sequential number of the
  190.    disk drive to check (A=1, B=2, C=3, etc.)  A value of 0 checks
  191.    the default drive.k
  192. Which drive do you wish to check?"
  193. Select Drive
  194. default"
  195. ABCDEFGHIJKLMNOPQRSTUVWXYZ
  196. default"
  197. Invalid Drive Specified.
  198. There are 
  199.  bytes free on the "
  200.  drive."
  201. g_GetFTime_Click
  202. GetFileTime() takes two parameters, the full path and name of the file
  203.    to check and an empty string in which the file's date and time will
  204.    be returned.  This string should be preset for at least 20 characters
  205.    to ensure enough space to house the result.
  206. The function also returns an error value of 0 if successful and a values
  207.    other than > 0 if it was not able to find or access the file.
  208. Which file do you wish to check?
  209. Select File"
  210. C:\AUTOEXEC.BAT"
  211.  date is "
  212.  not found."
  213. Path not found."
  214. Access to 
  215.  denied.
  216. Unable to Access file.
  217. c_Hidden_Click
  218. IsFileHidden takes one parameter, a string with the full path name
  219.    of the file.k
  220. Which file do you wish to check?
  221. Select File"
  222. C:\AUTOEXEC.BAT"
  223.  is Hidden."
  224.  is not Hidden."
  225.  not found."
  226. Path not found."
  227. Access to 
  228.  denied.
  229. Unable to Access file.
  230. h_LocateFile_Click
  231. FindFile takes 3 parameters:
  232.    1)  The name of the file you wish to find.e
  233.    2)  The paths you wish to search as a string of paths separated byE
  234.  semicolons (i.e. a typical DOS path)a
  235.    3)  An empty string to house the returned fully qualified DOS filename.
  236.  This should be at least 80 characters in length.  If too small, the program
  237.  will crash.
  238. Which file do you to find?
  239. Select File"
  240. C:\AUTOEXEC.BAT"
  241.  not found."
  242. Full name of "
  243. l_ModArchive_Click
  244. SetFileArchive takes two parameters.
  245.    1) A string with the complete path and filename."
  246.    2) A single character string with a value of "+" or "-"
  247. A + will set the attribute on.
  248. A - will set the attribute off.
  249. Which file do you to modify?
  250. Select File"
  251. C:\AUTOEXEC.BAT"
  252. Do you wish to turn the attribute on (Y/N)?"
  253. Hide Y/N
  254.  is now modified."
  255.  not found."
  256. Path not found."
  257. Access to 
  258.  denied.
  259. Unable to Access file.
  260. i_ModHidden_Click
  261. SetFileHidden takes two parameters.
  262.    1) A string with the complete path and filename.
  263.    2) A single character string with a value of "+" or "-"
  264. A + will set the attribute on.
  265. A - will set the attribute off.
  266. Which file do you to modify?
  267. Select File"
  268. C:\AUTOEXEC.BAT"
  269. Do you wish to turn the attribute on (Y/N)?"
  270. Hide Y/N
  271.  is now modified."
  272.  not found."
  273. Path not found."
  274. Access to 
  275.  denied.
  276. Unable to Access file.
  277. j_ModRO_Click
  278. SetFileRO takes two parameters.
  279.    1) A string with the complete path and filename.
  280.    2) A single character string with a value of "+" or "-"
  281. A + will set the attribute on.
  282. A - will set the attribute off.
  283. Which file do you to modify?
  284. Select File"
  285. C:\AUTOEXEC.BAT"
  286. Do you wish to turn the attribute on (Y/N)?"
  287. Hide Y/N
  288.  is now modified."
  289.  not found."
  290. Path not found."
  291. Access to 
  292.  denied.
  293. Unable to Access file.
  294. k_ModSystem_Click
  295. SetFileSystem takes two parameters.
  296.    1) A string with the complete path and filename.
  297.    2) A single character string with a value of "+" or "-"
  298. A + will set the attribute on.
  299. A - will set the attribute off.
  300. Which file do you to modify?
  301. Select File"
  302. C:\AUTOEXEC.BAT"
  303. Do you wish to turn the attribute on (Y/N)?"
  304. Hide Y/N
  305.  is now modified."
  306.  not found."
  307. Path not found."
  308. Access to 
  309.  denied.
  310. Unable to Access file.
  311. d_ReadOnly_Click
  312. IsFileRO takes one parameter, a string with the full path name
  313.    of the file.o
  314. Which file do you wish to check?
  315. Select File"
  316. C:\AUTOEXEC.BAT"
  317.  is Read Only"
  318.  is not Read Only.
  319.  not found."
  320. Path not found."
  321. Access to 
  322.  denied.
  323. Unable to Access file.
  324. e_Sysfile_Click
  325. IsFileSystem takes one parameter, a string with the full path name
  326.    of the file.k
  327. Which file do you wish to check?
  328. Select File"
  329. C:\AUTOEXEC.BAT"
  330.  is System."
  331.  is not System."
  332.  not found."
  333. Path not found."
  334. Access to 
  335.  denied.
  336. Unable to Access file.
  337. x_ExitMNU_Click
  338.